home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Win2K Start Menu 2.xpl < prev    next >
Text File  |  2002-01-01  |  3KB  |  96 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH 1"="Appearance\Start menu\Windows ME"
  5. "UIPATH 2"="Appearance\Start menu\Windows 2000"
  6. "NAME"="Cascaded System Items"
  7. "VERSION"="3.01"
  8. "OSVERSION"="000110"
  9. "LANGUAGE"="VBScript"
  10. "TEXT 1"="nanan"
  11. "DESCRIPTION 1"="These settings control if the system items inside your Start menu should cascade or not."
  12. "DESCRIPTION 2"="Cascade means: make the items behave like menus with submenus instead of just opening the related folder. "
  13. "DESCRIPTION 3"="NOTE: These settings will have no effect if you use the new (two columns) display of the Start Menu in Windows XP."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com/"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"="Thanks to Pierre and CptSiskoX for the settings and the idea."
  18.  
  19.  
  20.  
  21. sV1="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\CascadeMyDocuments"
  22. sV2="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\CascadeMyPictures"
  23. sV3="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\CascadeNetworkConnections"
  24. sV4="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\CascadeControlPanel"
  25. sV5="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\CascadePrinters"
  26.  
  27.  
  28. SUB Plugin_Initialize
  29.     Call SetUIElement(1,"Cascade 'My Documents' inside Start Menu")
  30.     s=RegReadValue(sV1) 
  31.     If s="YES" or IsEmpty(s) then SetUIElementEx 1,true
  32.  
  33.     Call SetUIElement(2,"Cascade 'My Pictures' inside Start Menu")
  34.     s=RegReadValue(sV2) 
  35.     If s="YES" or IsEmpty(s) then SetUIElementEx 2,true
  36.  
  37.     Call SetUIElement(3,"Cascade 'Network and Dial-Up' inside Start Menu")
  38.     s=RegReadValue(sV3) 
  39.     If s="YES" or IsEmpty(s) then SetUIElementEx 3,true
  40.  
  41.     Call SetUIElement(4,"Cascade 'Control Panel' inside Start Menu")
  42.     s=RegReadValue(sV4) 
  43.     If s="YES" or IsEmpty(s) then SetUIElementEx 4,true
  44.  
  45.     Call SetUIElement(5,"Cascade 'Printers' inside Start Menu")
  46.     s=RegReadValue(sV5) 
  47.     If s="YES" or IsEmpty(s) then SetUIElementEx 5,true
  48. END SUB
  49.  
  50. SUB Plugin_CheckData(ElementIndex)
  51. END SUB
  52.  
  53. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  54.  b=GetUIElementEx(1)
  55.  if b=true then
  56.     Call RegWriteValue(sV1,"YES",1)
  57.  else
  58.     Call RegWriteValue(sV1,"NO",1)
  59.  end if
  60.  
  61.  b=GetUIElementEx(2)
  62.  if b=true then
  63.     Call RegWriteValue(sV2,"YES",1)
  64.  else
  65.     Call RegWriteValue(sV2,"NO",1)
  66.  end if
  67.  
  68.  b=GetUIElementEx(3)
  69.  if b=true then
  70.     Call RegWriteValue(sV3,"YES",1)
  71.  else
  72.     Call RegWriteValue(sV3,"NO",1)
  73.  end if
  74.  
  75.  b=GetUIElementEx(4)
  76.  if b=true then
  77.     Call RegWriteValue(sV4,"YES",1)
  78.  else
  79.     Call RegWriteValue(sV4,"NO",1)
  80.  end if
  81.  
  82.  b=GetUIElementEx(5)
  83.  if b=true then
  84.     Call RegWriteValue(sV5,"YES",1)
  85.  else
  86.     Call RegWriteValue(sV5,"NO",1)
  87.  end if
  88.  
  89.  
  90.  'Call Logoff
  91.  Call IndicateSettingChange()
  92. END SUB
  93.  
  94. SUB Plugin_Terminate
  95. END SUB
  96.